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ZTITL sbhishontt - Terminate recovery preceseteg, 
MODULE EDTSSAU 


VAX-11 Bliss-32 V 
DISK 


Terminate ecover rocess 
[peut = "v04-000" ree es SAUDI OCT eaTe: REMI020 
= 


BEGIN 


PRRRERRARAAAARAEEAAARERAAEAAAEAEAAETERAAEAAAA TERRA AARAAARTAEERAERARRAEREEREREE 


'@ 

iw COPYRIGHT (c) 1978, 1980, 1982, 1984 8 

ie DIGITAL EQU IPMENT CORPORATION,” MAYNARD. MASSACHUSETTS. 

is ALL RIGHTS RESERVED 

is re SOF TWARE fs FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
iw ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ie INCLUSION OF THE ABOVE Spt NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
= tauartheie’ NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
* 
® 
* 
* 
ft 
a 
® 
* 
e 
'@ * 
* 
& 
* 
* 
® 
* 
* 
a 
* 


:® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:: cORPORAT ion. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


MIMI 2 sO 


NAW WN 0 OD NAME WIN 9 ODN UNE WIN — O OONOAU SWAN (OVO OVNOUS WO 0O@ 


RRR RRA REAA RARER REEEAAAEEE RARER EEE AEAA EAA AERARERAREEREREE 
' 


'+4 
} FACILITY: EDT == The DEC Standard Editor 

ABSTRACT: 

Terminate recovery processing on the journal file. 
ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Bob Kushlis, CREATION DATE: 6-AUG-1979 

MODIFIED BY: 

1-001 - Original. DJS 18-FEB-1981. This module was created b 
4 

' 

i] 

i] 

{ 

i 

' 

1 

' 

} 


LOI IOINIRI AD i vee 
WP) OOWDNAVE WN (“OO DNOU EWN (OD ONOUE WN OOONOULWR— 


Se Se Ge Se Se Se Se Ge Ge Ge Fe Ge Ge Fe Fe Se Ge Se Ge Se Ge Ge Ge Se Ge HSH Se Se Ge Se Se Se Se Se Ge Se Se Ge Ge Ge Se Ge Se Se Se Se Ge Se Se FH Se Oe os Se Se ee 


a ee ee cee cee ee ee ee ee ee ee ce ee ee ee ee ee el ee ee ee ee ee ce el el el ee eel ec ee cel ee eel cel el el ee el el el ce el el cD eel el ee 


44 
45 extracting routine EDT vente & pepe foe module EDTCTR. 
4 ! 1- 0 - pyouaer® ae A ae ay ot 4- _ =1 
4 ! I= ~ and m = fe S 04-Mar-1981 
48 ! 1- Be ~ thange TOS TSSOSENC A APPEND FILE to name eS FILDEF « . Oe-Apr= 1961 
49 ! 1-005 - Use the journal RAB rather than the coggehd § JBS -1$e5 ug-1981 

0 ! 1. $ - Add additional perpneters to edt$$cls_fi. $is-Jon 1982 

1 ! 1- - Don't close Vax files and then reopen. irs" 1 ~Jan-1982 

§ 1-008 - deat Locate aecaela descr prors. STS 10-Fe 

! 1-009 - ine | cals et sallen le EDT. STS 10cR Mar oy 82 

4 ! 1- 1 * tee EDT$$G o EDT$$V_OPTIONS, JBS as ab 

5 i 4-017 - Corre t errors : PpPs 1 con guration, | JBS 2 eo-Mar- 982 

$ 1- \¢ - 1/0 routines return s tan. 6-M 98 

1-015 - ag Bis renanen of the PDP-11° : on ’ le, use SEQ to indicate 


yee sees 
SKSVMSMASTER: CEDT.SRCJSAUDIT.BLI;1 


eet a stent ice temetnmetctiass. Lughat 1§-2¢ 2007 18B2 95:58:98 | Bbw GhAteacceDe sacSsauir.eut;1 3 


3 H : 1! APPEND. JBS ore ae 

3 - 1 - Print a message oat OSE error. sit. jechers ge 

3 -015 = Move an END to fix /R gPront em. 2beanee 1 

; i 4- 18 - Pass cofeu t ile. name in RHB paraneter.. 9295 16- sgrivee 
.. © 1 | 1-017 = Make use of bit masks for oft fons yore. “Aya: 982" 

i & 11 1. + - Fix references to the E Me Synbol ols. Jes 2 7Aus 98 

; @& 0064 1! 1-019 - Improve the appearance 4 isti "Ohi JBS 17-Jun-1983 

=. oe 0065 1 | 1-020 = Added logic to maintain teSc. TIN_OBUF POS gurelea /RECOVERY mode. 
; & 0066 1! REM 11-Oct-1983 

3; of 0067 1 i- 

; @& 0068 1 


dD 11 
EDTSSAUDIT EDTSSAUDIT - Terminate recovery processin 16-Sep-1984 01:28: VAX-11 Bliss-32 V4.0-74 
ae Declarations Ang ° 13-88-1382 93:38:98 DIEKSVMGMASTERSCEOT SacSSAUDIT.OLIs1 om 23 
1 SSBTTL Declarations’ 
| TABLE OF CONTENTS: 


REQUIRE "EDTSRC: TRAROUNAM' ; 


| 
| 
| 
FORWARD ROUTINE 
EDTSSTERMIN_RCOVMOD : NOVALUE; 


; INCLUDE FILES: 
MIF XBLISS (BLISS32) 
XTHEN 


REQUIRE "EDTSRC:SYSSYM’; 
“FI 
REQUIRE ‘EDTSRC:EDTREQ’; 


t 
MACROS: 

is 

! Macro for the default name of the journal file. This is defined as a macro 
: so we can use ZCHARCOUNT to pass the length of the string. 


i <BLF /NOF ORMAT> 


bt Arye tyrevey- 


DEANNA FW MO CODNOUE WS 


=) 
ao 


NOUS WN (OO ONOAUES WN —O 


MACRO OU_DEFLT = ZSTRING ('.JOU;") % ; ! File type of .JOU, latest version. 
; <BLF /FORMAT> 
EQUATED SYMBOLS: 
NONE 
OWN STORAGE: 
NONE 
EXTERNAL REFERENCES: 
In the routine 


2 tt M@QOOOOOCSOO OOOO D00 OO ODDO ODWODWDWDONNNANNNNNNS 
a a a a a a dd 


Se Se Se Se Se Ge Se Se Se Se Ge Ge Ge Ge Fe Fe Ge Se Ge Se FH Se Se Fe Se Se Se Se Se Ge Se Se Se Ss Se Se Ss Ge Se Se Se Se Se Ss Se Se Seas 


et a 2 2 ws SS 4) = 

COSSSSSOOOOCOSOOOOOCOCO 
NNN SSS SS SSO 
233 3S | = 000009 


11 
AUDIT = Terminate recovery processin 16-5¢ -1984 01:28: VAX-11 Bliss-32 V4.0-74 Page 4 
SET ERAIN RCOUROD - Termina g recovery prece 1 =300- 1382 93:68:08 NIEKSVMOMASTERSLEDT SRCISAUDIT.BLI:1 ° (3) 


oe 


DT 
DT 
: 1} q } ZSBTTL “EDTSSTERMIN_RCOVMOD = Terminate recovery processing’ 
3 «(Ye 7 1 GLOBAL ROUTINE EDTSSTERMIN_RCOVMOD ! Terminate recovery mode 
eS 7 1 : NOVALUE = 
3 3 7 § 1 
.?-9 7 1 44 
; : 5 f ¢ : } FUNCTIONAL DESCRIPTION: 
£4 ; 7 § 1! Terminate recovery mode. This routine closes the journal file 
3 3 $ 7 1: going used to recover and re-opens it to record subsequent 
3; 3 728 1! typein. On VMS this is not needed because the journal file 
3 } : f 4 : } was opened for input/output. 
[7 ¢ 731 1 =! FORMAL PARAMETERS: 
oe 7 § 1! 
oso 7 1! NONE 
3; 139 734 1! 
Ss 735 1°! IMPLICIT INPUTS: 
3 % 7 $ 1! 
.% 7 1! EDTSS$V_OPTIONS 
; 4139 7 : 1! EDTSSA_JOU_NAM 
3; 140 07 1! EDTS$$G_JOU_NAMLEN 
3; «6161 Bree 1! 
3 | 741 1 ! IMPLICIT OUTPUTS: 
; (16 Bree 1! 
: (144 0745 1! EDT$$G_RCOV_MOD 
; «6145 0744 1! EDT$$G_TIN_OBUFPOS 
; is TOF 1! 
3; (16 746 1 ! ROUTINE VALUE: 
; «6148 747 1! 
; «6149 748 1! NONE 
; 150 749 «1! 
3 T3) 750 1 ! SIDE EFFECTS: 
3 136 a}! 1! 
3 Ht 236 : : Closes and re-opens the journal file on PDP-11s, may do nothing on VMS. 
: 13s O78, | ine 
3; § 755 1 
3 4 £36 BEGIN 
: 159 758 EXTERNAL ROUTINE 
; 160 759 EDTSSFIOPN_ERR : NOVALUE, 
3; 6161 760 EDTSSFATAL_IOERR : NOVALUE, 
; 166 re) EDTSSCALLF IO; 
3; «1646 Lt 076 ZIF XBLISS (BLISS32) 
; 165 764 XZTHEN 
; 196 765 
3 46 76 hie ROUTINE 
: 198 76 STRSFREE1_DX; 
; 1 76 
: 170 U 07 ZELSE 
3; «171 U 0770 
; \7¢ U 0771 heyy LITERAL 
: 7 U Ak EDTS$K_OPEN_OUTPUT_SEQ; 
3 17 U 077 
. ee U 0774 MESSAGES ((NOJNLFIL)); 
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EDTSSAOrt ° Teratacte reco ER) 


processing 1b-Sep-19 4 t 9}: $8: 98 VAX-11 Bliss-32 v4. 


IT Pp 
ERMIN_RCOVMOD = termina e recovery proce 14-Sep-1984 _ 3 
Fl 


0-74 
DISKSVMSMASTER: CEDT OSRCISAUDIT.BLI;1 (3 


SANS tt 


OPTIONS : BITVECTOR (32), ! Options; bit 2 = eat 

JOU_NAM, ' Name of jo rnal file 

OU_NAMLEN Length o journal file name 
' 


! Position in journal = buffer 


wr 


! Are we in recovery mode 


] 
' 
x 
EXTER 
E 
E 
E 
EDTS$$G_RC 
EXTERNAL LITE AL 
EDT$M_NOJOURNAL , 
EDTS$K-~CLOSE 
EDT$K~ JOURNAL _F ILE; 
LOCAL 
STATUS 
FIL E DESC : BLOCK (8, BYTE), 
NB DESC: “BLOCK (8, BYTE), 
RNB “LEN, 
MESSAGES ((JOUFILCLO)); 
4 
3 
4 
4 


co 
uw 


VIFWN—OOONO MEW" OOOnOun we 


LLNS a 


oooon7o 


SSSLESLISLESELS 
LF 


> > > 
oO 
co 


This routine is only called if we are in recovery mode. 
ASSERT (.EDTS$G_RCOV_MOD) ; 


Sete Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se we 


X1F_ XBLISS (BLISS32) 
FILE_DESC [DSCSB ati = DSCS$K_DTYPE_T; 
FILE-DESC_COSC$B-CLASS] = DSCSK-CLASS_D: 
RHB_DESC CDSC$B_DTYPE) = DSC$K_OTYPE_T; 
RHB-DESC CDSC$B-CLASS) = DSCS$K~CLASS~D: 


RFI bs 


CS$A_POINTER] = 0; 
C$u" poEncral = 8: 
SA_POINTER 
SWILENGTH) = “0; 
AR 


Nenrun-os 


O68 NOAUE WO OONOUE Win 


tb ad dt tb et 


L 
TRING_ DESC (RHB_DESC, RHB_LEN, tuspre CUPLIT (JOU_DEFLT))); 
4 ((.EDTSSV_OPTIONS AND EDTSM_NOJOURNAL) NEQ 0) 


—- wD wan 


EGIN 
STRING_DESC (FILE DESC 


PRIPOPOPRS 2 tt 2 tt Ot Oo 


EDTS$$G_JOU ETEK. -EDTSSA_JOU_NAM) ; 


STATUS-= EDTSSCALCFIO (EDTSK_CCOSE> EDTSK.JOURNAL_FILE; FILE_DESC, 0); 


IF ( NOT .STATUS) 
THEN 


DONAOUSWN—OOW 


DT 
DTSSFATAL_IOERR (); 
ND 


ROR SRORITUTUNUTU TUTTI 3 3 ee ons 
SISAR ANS 
r 
SOSOCOSCOSOSSSOOOOSOOOOSOSSOSOSSOSOOOSOOOOOOOOOOOOOCOOOOOOOOOOOOCO 
Ssssseooess 


Be Se Ge Se Se Ge Se Se Se Se Se Ge Fe Ge Ge Ge Ge Se Ge Ge Fe Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ss Ge Se Se Ge Ge Se Se Se Se Ge Se Se Se Se Se Se Se Se Ge Se Se SH Se os 


—COOOnNOufwith—o 


WWILAPSPOPONININIPOPNIND 


No— 


| 
| 
| 
DTSSr OPN. ERR (EDT$_JOUFILCLO, FILE_DESC); | 
} 
| 
| 
| 


at 


1+ 
} Recovery mode is over. 


EDTS$G_RCOV_MOD = 0; 
edt$$g_tin_Obufpos = 0; 


On the VAX we need to deallocate the dynamic descriptors 


SSS 
MEWN—OO® 


ZIF XBLISS (BLISS32) 
THEN 


ad 
2.0000 0000 
~N 


FONSS IANS ASN IIS ES ROR ES 


7 
fs: STRSFREE1_DX (FILE DESC); 
i - STRSFREE1_DX (RHB_BESC); 
: END; ! of routine EDTSSTERMIN_RCOVMOD 


-TITLE EDTSSAUDIT coresMuety - Terminate recovery proc 
ng 


EDTSSAUDIT DISSAUDIT = Terminate reco rocessin 16-Sep-1984 VAX-11 Bliss-32 V e 6 

vou EDTSETERMINRCOVMOD - Tera\ne o recovery proce 1 “3en-1984 93: $f: 35 DISKSVMSMASTER: cto + °sRCSSAUDIT.BLI:1” ;1 rhe (3) 

: END; : 
; 5 L tt ZBLISS (BL1SS16) ; 
; U 6 '¢ ; 
3 U i If this 1 a PDP-11 base system, we must close the file and re-open it for append. ; 
ry U : ve use SEQ not to make the. ournal file sequenced but to indicate that the journal . 
: re ’ if le should be appended to. : 
: 26 U : 
; tz : § en’ -EDTSSV_OPTIONS AND EDTSM_NOJOURNAL) EQL 0) ! NOT /NOJOURNAL ‘ 
: 245 U BEGIN : 
; 4 U 5 STRING_DESC (FILE _DESC, EDTS$$G_JOU_NAMLEN, .EDTSS$A_JOU_ «te 3 
: gh? U 0846 STATUS"= EDTSSCALLE I 0 teDTSk.CCO OSE> EDTSK_JOURNAL_FILE> 0, 0); : 
: 249 U : IF ( NOT .STATUS) : 
: $83 U 085 MEN BEG 
: 2 U 1 EDT STSSFIOPN. ERR ceDts _JOUFILCLO, FILE_DESC); : 
3 U 08 § EDTSSFATAL_ IOERR (); H 
Bo ome we ; 
3 se e 55 STATUS = EDTSSCALLFIO (EDTSK_OPEN_OUTPUT_SEQ, EDTSK_JOURNAL_FILE, FILE_DESC, RHB_DESC); ‘ 
; 258 U Be IF ( NOT .STATUS) ; 
: 259 U 0858 THEN 3 
3 U 0859 BEGIN ; 
$ U 3 EDTSSF IOPN_ERR seore -NOJNLFIL, FILE_DESC); 3 
3 : 1 perSOrArAl., IOERR (); ; 
; U $ : . ; 
3 U 8 END; r 
3 U 5 3 
‘ +444 ZFI : 
; ; 
Py ; 
3 : 
Py | . 


-IDENT \V04-000\ 


H 11 
EDTSSAUDIT EDTSSAUDIT = Terminate recovery processin gn3e 8: VAX-11 Bliss-32 V 
7042000. EDTSS TERMINRCOVMOD = Termina a ceeeare neeats * eer 93: $f 3 DISKSVMSMASTER: cto +°seeSsaupit. BLI;1 a (35 


«PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


00 00 00 38 55 4F 4A 2E 00000 P.AAA: .ASCII \.J0U;\<0><0><0> ; ; 
.EXTRN EDTSS$FIOPN_ERR EDTSSEATAL _ IOERR : 
XTRN EDTSSCALLFIO, STRSFREE1_D : 
-EXTRN EDTSS$V_ OPT ON S, EDTSSA_ Jou. NAM : 
EXTRN EDT$$G_JOU_NAMLEN : 
“EXTRN EDTS$$G_TIN~ OBUFPOS : 
-EXTRN EDT$S$G gkcor ; 
~EXTRN EDTSM_ROJOURN : 
SEXTRN EDTS$K~CLOSE ED TSK JOURNAL _FILE ; 
XTRN EDT$_JOUFILCLO, EDTSSINTER-ERR 
«EXTRN STRSCOPY. Re 
001¢ 00000 .ENTRY EDTSSTERMIN_RCOVMOD, Save R2,R3,R4 : 0720 
54 990000006 00 9 itd MOVAB EDT$$G_RCOV"MOD, R4 : 
33 0 0000006 00 9E 90009 MOVAB STRSEREE| DR R$ : 
. Sere ae cs $017 CURL? 20 SP VR. ke 
id 64 € SOOTA LBS _ EDT$$G_RCOV_MOD, 1$ + 0801 
000000006 00 0 FB 0001D CALLS # EDTSSIN NTER_ERR : 
OC AE 920£0000 F DO 00024 1$: MOVL #34471936, FILE DES + 0812 
04 AE 020E0000 8F DO 000eC MOVL  #34471936, RHB_D + 0814 
10 AE D4 00 CLRL = FILE_DESC+4 > 0811 
08 AE D4 0037 CLRL § RHB_BESC+4 + 0813 
6E 05 DO 0003A OVL #5, RHB_LEN : 0816 
BB AF OF 9003p PUSHAB P.AAA + 0817 
04 AE OF 0049 PYSHAB RHB_LEN ; 
OC AE 9F 0004 PUSHAB RHB-DESC : 
62 03 FB 00046 CALLS #3, STRSCOPY_R : 
000000006 8F 000000006 00 : 00049 BITL EDTS$V_OPTIORS, #EDTSM_NOJOURNAL + 0819 
000000006 00 bd 00056 PUSHL EDTS$$A_JOU_NAM > 0822 
000000006 00 9F 0005¢c PUSHAB EDT$$G_JOU-NAMLEN F 
14 AE 9F 0006¢ PUSHAB FILE DESC ; 
62 9 FB 0006 CALLS #3, STRSCOPY_R : 
E D4 00068 CLRL =s_ = ¢ §P) : 0823 
10 AE 9F O006A PUSHAB FILE DESC : 
000000006 8F DD 000 PUSHL #EDTSK_JOURNAL_FILE ; 
000000006 8F DD 99 PUSHL #EDT$K~CLOS ; 
000000006 09 4 FB 0007 CALLS #4, EDTS$$CALLFIO ; 
1 0 f 9080 BLBS STATUS, 2$ : 0825 
0c AE PUSHAB FILE DESC : 0828 
000000006 8F DD 086 USHL  #EDTS JOUFILCLO ; 
000000006 00 ‘ FB ¢ CALLS #2, EDTSSFIOPN_E ; 
000000006 00 FB 0009 CALLS @# EDTSSFATAL IOERR : 0829 
4 D4 OOO9A 28: CLRL EDT $$G_RCOV_MOD : 0871 
000000006 00 p4 9 CLRL _—« EDT$$G~TIN_OBUFPOS > 087 
OC AE 9F OOOA PUSHAB FILE DESC : 087 
63 01 FB OOOA CALLS #1, STRSFREE1_DX ; 
04 AE 9F OOOA PUSHAB RHB_DESC + 0880 
63 01 FB OAB CALLS #1, ~STRSFREE1_DXx ; 
04 OOOAE RET : 0883 
; Routine Size: 175 bytes, Routine Base: _EDTSCODE + 0008 


Gbus008 EDTERTERAIN RCOVMOD’ *S fecalnate reconery “proce b-ep-1984 93:58:98 | UNScdiwGaaSfencceot esacSsaupit.eut;1 2% : 
i $82 O88$ 1 <BLE/PAGED 


Vou-G00, —«EDTSSTERMIN_RCOVMOD = Terminate recovery proce 1bcbeortgge 73:30:98 DT ScSumSmaSTeRsCEDTesRCSsaUDIT.eLI;1 9" (4d 
: 389 O88? ! END ! of module EDTSSAUDIT 

; 8 0 ELUDOM 

; PSECT SUMMARY 

; Name Bytes Attributes 

;  EDTSCODE 183 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

; Library Statistics 

; oosncnes Syabhels§ soccscco Pages Processing 

; File Total Loaded Percent Mapped Time 

; ~$255$DUA28: DRL ERa HOR Eas | 9776 6 0 581 00:02.6 

3 ~$255$0UA28:CEDT.SRCJ 3231 377 3 0 40 00:00.7 

3 ~$255$DUA28:CEDT.SRCIPSECTS.L32; i 2 1 50 7 00:00.1 

: COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:SAUDIT/OBJ=OBJ$:SAUDIT MSRC$:SAUDIT.BLI/UPDATE=(ENH$:SAUDIT) 


; sais sede : 8 data bytes 


; ime 

3 Slessed Tine: 80: ie *} 
3; Lines/CPU Min: y 
3; Lexemes/CPU-Min: 

; ry Used: 101 att 
3; Compilation Complete 


See 
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